#lang rosetta-racket


(provide single-clone
         multiple-clones)


(define (single-clone)
  (displayln "Cloning a sphere")
  (let ((shape (evaluate (sphere 1))))
    (list shape (clone-shape shape))))

(define (multiple-clones)
  (displayln "Cloning a sphere and a box")
  (let ((shape (evaluate (list (sphere 1) (box 1 2 3)))))
    (list shape (clone-shapes shape))))